home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / pdc / make / input.c < prev    next >
C/C++ Source or Header  |  1990-04-19  |  7KB  |  327 lines
  1. /*
  2.  *    Parse a makefile
  3.  */
  4.  
  5.  
  6. #include <stdio.h>
  7. #include    <ctype.h>
  8. #include "h.h"
  9.  
  10.  
  11. struct name     namehead;
  12. struct name    *firstname;
  13.  
  14. char            str1[LZ];    /* General store  */
  15. char            str2[LZ];
  16.  
  17.  
  18. /*
  19.  *    Intern a name.  Return a pointer to the name struct
  20.  */
  21. struct name    *
  22. newname(name)
  23.     char           *name;
  24. {
  25.     register struct name *rp;
  26.     register struct name *rrp;
  27.     register char  *cp;
  28.  
  29.  
  30.     for
  31.     (
  32.      rp = namehead.n_next, rrp = &namehead;
  33.      rp;
  34.      rp = rp->n_next, rrp = rrp->n_next
  35.     )
  36.     if (strcmp(name, rp->n_name) == 0)
  37.         return rp;
  38.  
  39.     if ((rp = (struct name *) malloc(sizeof(struct name)))
  40.     == (struct name *) 0)
  41.     fatal("No memory for name");
  42.     rrp->n_next = rp;
  43.     rp->n_next = (struct name *) 0;
  44.     if ((cp = malloc((unsigned) strlen(name) + 1)) == (char *) 0)
  45.     fatal("No memory for name");
  46.     strcpy(cp, name);
  47.     rp->n_name = cp;
  48.     rp->n_line = (struct line *) 0;
  49.     rp->n_time = (time_t) 0;
  50.     rp->n_flag = 0;
  51.  
  52.     return rp;
  53. }
  54.  
  55.  
  56. /*
  57.  *    Add a dependant to the end of the supplied list of dependants.
  58.  *    Return the new head pointer for that list.
  59.  */
  60. struct depend  *
  61. newdep(np, dp)
  62.     struct name    *np;
  63.     struct depend  *dp;
  64. {
  65.     register struct depend *rp;
  66.     register struct depend *rrp;
  67.  
  68.  
  69.     if ((rp = (struct depend *) malloc(sizeof(struct depend)))
  70.     == (struct depend *) 0)
  71.     fatal("No memory for dependant");
  72.     rp->d_next = (struct depend *) 0;
  73.     rp->d_name = np;
  74.  
  75.     if (dp == (struct depend *) 0)
  76.     return rp;
  77.  
  78.     for (rrp = dp; rrp->d_next; rrp = rrp->d_next);
  79.  
  80.     rrp->d_next = rp;
  81.  
  82.     return dp;
  83. }
  84.  
  85.  
  86. /*
  87.  *    Add a command to the end of the supplied list of commands.
  88.  *    Return the new head pointer for that list.
  89.  */
  90. struct cmd     *
  91. newcmd(str, cp)
  92.     char           *str;
  93.     struct cmd     *cp;
  94. {
  95.     register struct cmd *rp;
  96.     register struct cmd *rrp;
  97.     register char  *rcp;
  98.  
  99.  
  100.     if (rcp = rindex(str, '\n'))
  101.     *rcp = '\0';        /* Loose newline  */
  102.  
  103.     while (isspace(*str))
  104.     str++;
  105.  
  106.     if (*str == '\0')        /* If nothing left, the exit  */
  107.     return (struct cmd *) 0;
  108.  
  109.     if ((rp = (struct cmd *) malloc(sizeof(struct cmd)))
  110.     == (struct cmd *) 0)
  111.     fatal("No memory for command");
  112.     rp->c_next = (struct cmd *) 0;
  113.     if ((rcp = malloc((unsigned) strlen(str) + 1)) == (char *) 0)
  114.     fatal("No memory for command");
  115.     strcpy(rcp, str);
  116.     rp->c_cmd = rcp;
  117.  
  118.     if (cp == (struct cmd *) 0)
  119.     return rp;
  120.  
  121.     for (rrp = cp; rrp->c_next; rrp = rrp->c_next);
  122.  
  123.     rrp->c_next = rp;
  124.  
  125.     return cp;
  126. }
  127.  
  128.  
  129. /*
  130.  *    Add a new 'line' of stuff to a target.  This check to see
  131.  *    if commands already exist for the target.  If flag is set,
  132.  *    the line is a double colon target.
  133.  *
  134.  *    Kludges:
  135.  *    i)  If the new name begins with a '.', and there are no dependents,
  136.  *        then the target must cease to be a target.  This is for .SUFFIXES.
  137.  *    ii) If the new name begins with a '.', with no dependents and has
  138.  *        commands, then replace the current commands.  This is for
  139.  *        redefining commands for a default rule.
  140.  *    Neither of these free the space used by dependents or commands,
  141.  *    since they could be used by another target.
  142.  */
  143. void
  144. newline(np, dp, cp, flag)
  145.     struct name    *np;
  146.     struct depend  *dp;
  147.     struct cmd     *cp;
  148.     bool        flag;
  149. {
  150.     int            hascmds = FALSE;    /* Target has commands  */
  151.     register struct line *rp;
  152.     register struct line *rrp;
  153.  
  154.  
  155.     /* Handle the .SUFFIXES case */
  156.     if (np->n_name[0] == '.' && !dp && !cp) {
  157.     for (rp = np->n_line; rp; rp = rrp) {
  158.         rrp = rp->l_next;
  159.         free((char *) rp);
  160.     }
  161.     np->n_line = (struct line *) 0;
  162.     np->n_flag &= ~N_TARG;
  163.     return;
  164.     }
  165.     /* This loop must happen since rrp is used later. */
  166.     for
  167.     (
  168.      rp = np->n_line, rrp = (struct line *) 0;
  169.      rp;
  170.      rrp = rp, rp = rp->l_next
  171.     )
  172.     if (rp->l_cmd)
  173.         hascmds = TRUE;
  174.  
  175.     if (hascmds && cp && !(np->n_flag & N_DOUBLE))
  176.     /* Handle the implicit rules redefinition case */
  177.     if (np->n_name[0] == '.' && dp == (struct depend *) 0) {
  178.         np->n_line->l_cmd = cp;
  179.         return;
  180.     } else
  181.         error("Commands defined twice for target %s", np->n_name);
  182.     if (np->n_flag & N_TARG)
  183.     if (!(np->n_flag & N_DOUBLE) != !flag)    /* like xor */
  184.         error("Inconsistent rules for target %s", np->n_name);
  185.  
  186.     if ((rp = (struct line *) malloc(sizeof(struct line)))
  187.     == (struct line *) 0)
  188.     fatal("No memory for line");
  189.     rp->l_next = (struct line *) 0;
  190.     rp->l_dep = dp;
  191.     rp->l_cmd = cp;
  192.  
  193.     if (rrp)
  194.     rrp->l_next = rp;
  195.     else
  196.     np->n_line = rp;
  197.  
  198.     np->n_flag |= N_TARG;
  199.     if (flag)
  200.     np->n_flag |= N_DOUBLE;
  201. }
  202.  
  203.  
  204. /*
  205.  *    Parse input from the makefile, and construct a tree structure
  206.  *    of it.
  207.  */
  208. void
  209. input(fd)
  210.     FILE           *fd;
  211. {
  212.     char           *p;        /* General  */
  213.     char           *q;
  214.     struct name    *np;
  215.     struct depend  *dp;
  216.     struct cmd     *cp;
  217. #ifdef pdc
  218.     unsigned int    dbl;
  219.     bool            getline();
  220. #else
  221.     bool            dbl, getline();
  222. #endif
  223.  
  224.     if (getline(str1, fd))    /* Read the first line  */
  225.     return;
  226.  
  227.     for (;;) {
  228. #ifdef os9
  229.     if (*str1 == ' ')    /* Rules without targets  */
  230. # else
  231.         if (*str1 == '\t')    /* Rules without targets  */
  232. # endif
  233.         error("Rules not allowed here");
  234.  
  235.     p = str1;
  236.  
  237.     while (isspace(*p))    /* Find first target  */
  238.         p++;
  239.  
  240.     while (((q = index(p, '=')) != (char *) 0) &&
  241.            (p != q) && (q[-1] == '\\')) {    /* Find value */
  242.         register char  *a;
  243.  
  244.         a = q - 1;        /* Del \ chr; move rest back  */
  245.         p = q;
  246.         while (*a++ = *q++);
  247.     }
  248.  
  249.     if (q != (char *) 0) {
  250.         register char  *a;
  251.  
  252.         *q++ = '\0';    /* Separate name and val  */
  253.         while (isspace(*q))
  254.         q++;
  255.         if (p = rindex(q, '\n'))
  256.         *p = '\0';
  257.  
  258.         p = str1;
  259.         if ((a = gettok(&p)) == (char *) 0)
  260.         error("No macro name");
  261.  
  262.         setmacro(a, q);
  263.  
  264.         if (getline(str1, fd))
  265.         return;
  266.         continue;
  267.     }
  268.     expand(str1);
  269.     p = str1;
  270.  
  271.     while (((q = index(p, ':')) != (char *) 0) &&
  272.            (p != q) && (q[-1] == '\\')) {    /* Find dependents  */
  273.         register char  *a;
  274.  
  275.         a = q - 1;        /* Del \ chr; move rest back  */
  276.         p = q;
  277.         while (*a++ = *q++);
  278.     }
  279.  
  280.     if (q == (char *) 0)
  281.         error("No targets provided");
  282.  
  283.     *q++ = '\0';        /* Separate targets and dependents  */
  284.  
  285.     if (*q == ':') {    /* Double colon */
  286.         dbl = 1;
  287.         q++;
  288.     } else
  289.         dbl = 0;
  290.  
  291.     for (dp = (struct depend *) 0; ((p = gettok(&q)) != (char *) 0);)
  292.         /* get list of dep's */
  293.     {
  294.         np = newname(p);    /* Intern name  */
  295.         dp = newdep(np, dp);/* Add to dep list */
  296.     }
  297.  
  298.     *((q = str1) + strlen(str1) + 1) = '\0';
  299.     /* Need two nulls for gettok (Remember separation)  */
  300.  
  301.     cp = (struct cmd *) 0;
  302.     if (getline(str2, fd) == FALSE) {    /* Get commands  */
  303. #ifdef os9
  304.         while (*str2 == ' ')
  305. #else
  306.         while (*str2 == '\t')
  307. #endif
  308.         {
  309.         cp = newcmd(&str2[0], cp);
  310.         if (getline(str2, fd))
  311.             break;
  312.         }
  313.     }
  314.     while ((p = gettok(&q)) != (char *) 0) {    /* Get list of targ's */
  315.         np = newname(p);    /* Intern name  */
  316.         newline(np, dp, cp, dbl);
  317.         if (!firstname && p[0] != '.')
  318.         firstname = np;
  319.     }
  320.  
  321.     if (feof(fd))        /* EOF?  */
  322.         return;
  323.  
  324.     strcpy(str1, str2);
  325.     }
  326. }
  327.